home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Powervisor v1.10b disk1.adf / Source / pptest.asm < prev    next >
Assembly Source File  |  1991-08-07  |  725b  |  44 lines
  1.         INCLUDE    "pv_lib.i"
  2.  
  3.         move.l    (4).w,a6
  4.         lea        PPName(pc),a1
  5.         jsr        _LVOOldOpenLibrary(a6)
  6.         tst.l        d0
  7.         beq.s        EndIt
  8.         move.l    d0,PPLib
  9.         move.l    d0,a6
  10.         jsr        _LVOPP_InitPortPrint(a6)
  11.         tst.l        d0
  12.         beq.s        EndClose
  13.         move.l    d0,PPPort
  14.     ;test
  15.         moveq        #5,d1
  16. Loop:
  17.         move.l    #500000,d0
  18. Loop2:
  19.         subq.l    #1,d0
  20.         bne.s        Loop2
  21.         move.l    PPLib(pc),a6
  22.         move.l    PPPort(pc),a0
  23.         lea        Text(pc),a1
  24.         jsr        _LVOPP_Print(a6)
  25.         dbra        d1,Loop
  26.         move.l    PPPort(pc),a0
  27.         jsr        _LVOPP_DumpRegs(a6)
  28.         move.l    PPPort(pc),a0
  29.         jsr        _LVOPP_StopPortPrint(a6)
  30. EndClose:
  31.         move.l    PPLib(pc),a1
  32.         move.l    (4).w,a6
  33.         jsr        _LVOCloseLibrary(a6)
  34. EndIt:
  35.         rts
  36.  
  37. PPLib:    dc.l    0
  38. PPPort:    dc.l    0
  39. PPName:    dc.b    "powervisor.library",0
  40. Text:        dc.b    "This is a test",10,0
  41.  
  42.         END
  43.  
  44.